home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / macberon.sit / MacOberon 2.4(0) / MacTextEdit.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1991-10-17  |  2.1 KB  |  49 lines
  1. Syntax10.Scn.Fnt
  2. MODULE MacTextEdit;    (*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
  3.     IMPORT
  4.         TY:= MacTypes, QD:= MacQuickDraw;
  5.     CONST
  6.         teJustLeft*= 0;    teJustCenter*= 1;    teJustRight*= -1;
  7.     TYPE
  8.         TERec*= RECORD
  9.             destRect*, viewRect*, selRect*: TY.Rect;
  10.             lineHeight*, fontAscent*: INTEGER;
  11.             selPoint*: TY.Point;
  12.             selStart*, selEnd*, active*: INTEGER;
  13.             wordBreak*, clikLoop*: TY.ProcPtr;
  14.             clickTime*: LONGINT;
  15.             clickLoc*: INTEGER;
  16.             caretTime*: LONGINT;
  17.             caretState*, just*, teLength*: INTEGER;
  18.             hText*: TY.Handle;
  19.             recalBack, recalLines, clikStuff, crOnly, txFont*: INTEGER;
  20.             txFace*: SHORTINT;    (* Style *)
  21.             txMode*, txSize*: INTEGER;
  22.             inPort*: QD.GrafPtr;
  23.             highHook, caretHook: TY.ProcPtr;
  24.             nLines*: INTEGER;
  25.             lineStarts: ARRAY 16000 OF INTEGER
  26.         END;
  27.         TEPtr*= POINTER- TO TERec;
  28.         TEHandle*= POINTER- TO RECORD p*: TEPtr END;
  29.     PROCEDURE - TENew*(destRect, viewRect: TY.Rect): TEHandle 0A9H, 0D2H;
  30.     PROCEDURE - TEDispose*(hTE: TEHandle) 0A9H, 0CDH;
  31.     PROCEDURE - TEIdle*(hTE: TEHandle) 0A9H, 0DAH;
  32.     PROCEDURE - TEClick*(pt: TY.Point; extend: BOOLEAN; hTE: TEHandle) 0A9H, 0D4H;
  33.     PROCEDURE - TESetSelect*(selStart, selEnd: LONGINT; hTE: TEHandle) 0A9H, 0D1H;
  34.     PROCEDURE - TEActivate*(hTE: TEHandle) 0A9H, 0D8H;
  35.     PROCEDURE - TEDeactivate*(hTE: TEHandle) 0A9H, 0D9H;
  36.     PROCEDURE - TEKey*(key: TY.UnpackedChar; hTE: TEHandle) 0A9H, 0DCH;
  37.     PROCEDURE - TECut*(hTE: TEHandle) 0A9H, 0D6H;
  38.     PROCEDURE - TECopy*(hTE: TEHandle) 0A9H, 0D5H;
  39.     PROCEDURE - TEPaste*(hTE: TEHandle) 0A9H, 0DBH;
  40.     PROCEDURE - TEDelete*(hTE: TEHandle) 0A9H, 0D7H;
  41.     PROCEDURE - TEInsert*(text: TY.Ptr; length: LONGINT; hTE: TEHandle) 0A9H, 0DEH;
  42.     PROCEDURE - TESetJust*(just: INTEGER; hTE: TEHandle) 0A9H, 0DFH;
  43.     PROCEDURE - TEUpdate*(rUpdate: TY.Rect; hTE: TEHandle) 0A9H, 0D3H;
  44.     PROCEDURE - TEScroll*(dh, dv: INTEGER; hTE: TEHandle) 0A9H, 0DDH;
  45.     PROCEDURE - TESelView*(hTE: TEHandle) 0A8H, 011H;
  46.     PROCEDURE - TEPinScroll*(dh, dv: INTEGER; hTE: TEHandle) 0A8H, 012H;
  47.     PROCEDURE - TEAutoView*(fAuto: BOOLEAN; hTE: TEHandle) 0A8H, 013H;
  48. END MacTextEdit.
  49.